home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_12147_FillThemCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  2.2 KB  |  66 lines
  1. global namelist,idlist,tct,books,TDi,PgCt,chapters,chapterstart,xxxStackPath
  2. global LgST,ratio,thetext,Bname,gLR,gSR,gLPS,gSPS,gSLTable,gLSTable
  3. global gLookInBookFolder, gResourceFolderName, gResourcePaths,gAnnotationChars,gCurLang,gNBSN
  4. put GetStackPath() into xxxStackPath
  5. doCSTR "FillgHCLangCSTR"
  6. set the language to "English"
  7. put getStr("CurrentLanguage") into gCurLang
  8. if gCurLang = "" then put 1 into gCurLang
  9. put getstr("supportedlanguages") into suplangs
  10. put getstr("installedlanguages") into inslangs
  11. if line gCurLang of inslangs = ""
  12. then
  13. answer "This book was published in"&&line gCurLang of suplangs&", which is not supported by this version of ╘The Library╒."
  14. put 1 into gCurLang
  15. end if
  16. if gNBSN="" then put "The Notebook" into gNBSN
  17. get ssn()
  18. if it ¡ "The Library" and it ¡ gNBSN and (get1Str("VoyagerBook")¡"" and get1str("TextToolKit")="") then
  19. put getStackPath() into p
  20. put it&&tStr("LibMsg",7) into t
  21. put char 1 to 31 of t into t
  22. CreateFolder p,t
  23. end if
  24. put getStr("AnnotationSymbolList") into gAnnotationChars
  25. if gAnnotationChars = "" then put "*+î⌐ºÑá╢─╫α" into gAnnotationChars
  26. get get1Str("ResourceLocations")
  27. put line 1 of it into gLookInBookFolder
  28. put line 2 of it into gResourceFolderName
  29. doCSTR "FillgResourcePathsCSTR"
  30. if not RB() then
  31. cbusy
  32. put the short id of this cd into wf
  33. get get1Str("printSizes") --this string is in each book
  34. if it ¡ "" then
  35. put line 1 of it into gSPS
  36. put line 2 of it into gLPS
  37. else
  38. put "12,17" into gSPS
  39. put "18,20" into gLPS
  40. end if
  41. put get1Str("TypeSizeTableLS") into gLSTable --this string is in each book
  42. put get1Str("TypeSizeTableSL") into gSLTable --this string is in each book
  43. get getstr("stylRects")
  44. put line 1 of it into gSR
  45. put line 2 of it into gLR
  46. put ssn() into BName
  47. put 30015 into TDi
  48. LM true
  49. LS
  50. if there is a bg "details" then put the number of cds in bg "details" into PgCt
  51. else put 0 into PgCt
  52. put PgCt/340 into Ratio
  53. cbusy
  54. if ((tStr("LibMsg",46) is not in BName) and (gNBSN is not in BName)) then
  55. go cd 1 of bg "title page"
  56. put fld "chapter starts" into chapterstart
  57. put fld "chapter names" into chapters
  58. end if
  59. if there is a bg "title page" then put the number of cds in bg "title page" into tct
  60. else put 0 into tct
  61. cbusy
  62. do "go cd id wf of stack BName"
  63. if books = "" then getbooks
  64. LM false
  65. US
  66. end if